home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Interapplication Communication / AE Interfaces / PInterfaces / ASDebugging.p < prev    next >
Encoding:
Text File  |  1993-12-08  |  3.8 KB  |  142 lines  |  [TEXT/MPS ]
  1. {
  2. ////////////////////////////////////////////////////////////////////////////////
  3. // OPEN SCRIPTING ARCHITECTURE: AppleScript Debugging Interface
  4. ////////////////////////////////////////////////////////////////////////////////
  5. // Copyright © 1993 Apple Computer, Inc. All rights reserved.
  6. // Author: Warren Harris
  7. ////////////////////////////////////////////////////////////////////////////////
  8. }
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT ASDEBUGGING;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingASDEBUGGING}
  20. {$SETC UsingASDEBUGGING := 1}
  21.  
  22. {$I+}
  23. {$SETC ASDEBUGGINGIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingAppleScript}
  26. {$I $$Shell(PInterfaces)AppleScript.p}
  27. {$ENDC}
  28. {$SETC UsingIncludes := ASDEBUGGINGIncludes}
  29.  
  30. {
  31. ////////////////////////////////////////////////////////////////////////////////
  32. // Mode Flags
  33. ////////////////////////////////////////////////////////////////////////////////
  34. }
  35.  
  36. const
  37.     kOSAModeDontDefine                        = $0001;
  38.  
  39. {
  40. ////////////////////////////////////////////////////////////////////////////////
  41. // Component Selectors
  42. ////////////////////////////////////////////////////////////////////////////////
  43. }
  44.  
  45. const
  46.     kASSelectSetProperty                    = $1106;
  47.     kASSelectGetProperty                    = $1107;
  48.     kASSelectSetHandler                        = $1108;
  49.     kASSelectGetHandler                        = $1109;
  50.     kASSelectGetAppTerminology                = $110A;
  51.     kASSelectGetSysTerminology                = $110B;
  52.     kASSelectGetPropertyNames                = $110C;
  53.     kASSelectGetHandlerNames                = $110D;
  54.  
  55. {
  56. ////////////////////////////////////////////////////////////////////////////////
  57. // Context Accessors
  58. ////////////////////////////////////////////////////////////////////////////////
  59. }
  60.  
  61. FUNCTION
  62. OSASetProperty(scriptingComponent    : ComponentInstance;
  63.                modeFlags            : LONGINT;
  64.                contextID            : OSAID;
  65.                variableName            : AEDesc;
  66.                scriptValueID        : OSAID)
  67.     : OSAError;
  68.     INLINE $2F3C, $0010, $1106, $7000, $A82A;
  69.  
  70. FUNCTION
  71. OSAGetProperty(scriptingComponent    : ComponentInstance;
  72.                modeFlags            : LONGINT;
  73.                contextID            : OSAID;
  74.                variableName            : AEDesc;
  75.                VAR scriptValueID    : OSAID)
  76.     : OSAError;
  77.     INLINE $2F3C, $0010, $1107, $7000, $A82A;
  78.  
  79. FUNCTION
  80. OSAGetPropertyNames(scriptingComponent    : ComponentInstance;
  81.                modeFlags            : LONGINT;
  82.                contextID            : OSAID;
  83.                VAR handlerNames        : AEDescList)
  84.     : OSAError;
  85.     INLINE $2F3C, $000C, $110C, $7000, $A82A;
  86.  
  87. FUNCTION
  88. OSASetHandler(scriptingComponent    : ComponentInstance;
  89.                modeFlags            : LONGINT;
  90.                contextID            : OSAID;
  91.                handlerName            : AEDesc;
  92.                compiledScriptID        : OSAID)
  93.     : OSAError;
  94.     INLINE $2F3C, $0010, $1108, $7000, $A82A;
  95.  
  96. FUNCTION
  97. OSAGetHandler(scriptingComponent    : ComponentInstance;
  98.                modeFlags            : LONGINT;
  99.                contextID            : OSAID;
  100.                handlerName            : AEDesc;
  101.                VAR compiledScriptID    : OSAID)
  102.     : OSAError;
  103.     INLINE $2F3C, $0010, $1109, $7000, $A82A;
  104.  
  105. FUNCTION
  106. OSAGetHandlerNames(scriptingComponent    : ComponentInstance;
  107.                modeFlags            : LONGINT;
  108.                contextID            : OSAID;
  109.                VAR handlerNames        : AEDescList)
  110.     : OSAError;
  111.     INLINE $2F3C, $000C, $110D, $7000, $A82A;
  112.  
  113. FUNCTION
  114. OSAGetAppTerminology(scriptingComponent        : ComponentInstance;
  115.                      modeFlags                : LONGINT;
  116.                       fileSpec                : FSSpec;        
  117.                      terminologyID            : INTEGER;
  118.                      VAR didLaunch            : Boolean;
  119.                      VAR terminologyList    : AEDesc)
  120.     : OSAError;
  121.     INLINE $2F3C, $0012, $110A, $7000, $A82A;
  122.  
  123. FUNCTION
  124. OSAGetSysTerminology(scriptingComponent        : ComponentInstance;
  125.                      modeFlags                : LONGINT;
  126.                      terminologyID            : INTEGER;
  127.                      VAR terminologyList    : AEDesc)
  128.     : OSAError;
  129.     INLINE $2F3C, $000A, $110B, $7000, $A82A;
  130.  
  131. {
  132. ////////////////////////////////////////////////////////////////////////////////
  133. }
  134. {$ENDC}    { UsingASDEBUGGING }
  135.  
  136. {$IFC NOT UsingIncludes}
  137.     END.
  138. {$ENDC}
  139. {
  140. ////////////////////////////////////////////////////////////////////////////////
  141. }
  142.